﻿Imports EntitiesLayer
Public Class frmAsociarMusculosAEjercicio

    Dim listaMusculos As List(Of Musculo) = New List(Of Musculo)

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()
        frmTransparente.Close()
        frmRegistrarEjercicio.Close()
        frmRegistrarImagenesEjercicio.Close()
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Me.Hide()
        frmRegistrarImagenesEjercicio.Show()
    End Sub



    Private Sub frmAsociarMusculosAEjercicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tblMusculos.DataSource = objGestor.listaMusculos()

        tblMusculos.Columns(1).Visible = False
        tblMusculos.Columns(3).HeaderText = "Irrigación"
        tblMusculos.Columns(5).HeaderText = "Inserción"
        tblMusculos.Columns(6).HeaderText = "Inervación"
        'tblMusculos.Columns(0).ReadOnly = False
        tblMusculos.Columns(0).Width = 120
        tblMusculos.Columns(2).Width = 200
        tblMusculos.Columns(3).Width = 200
        tblMusculos.Columns(4).Width = 200
        tblMusculos.Columns(5).Width = 200
        tblMusculos.Columns(6).Width = 200
        tblMusculos.Columns(2).ReadOnly = True
        tblMusculos.Columns(3).ReadOnly = True
        tblMusculos.Columns(4).ReadOnly = True
        tblMusculos.Columns(5).ReadOnly = True


    End Sub


    Private Sub btnRegistrar_Click(sender As Object, e As EventArgs) Handles btnRegistrar.Click
        For Each dRow As DataGridViewRow In tblMusculos.Rows

            'Dim id = tblCosultarMusculos.Item(0, tblCosultarMusculos.SelectedRows(0).Index).Value()

            If dRow.Cells.Item("Asociado").Value = True Then

                listaMusculos.Add(objGestor.listaMusculos.ElementAt(Convert.ToUInt32(dRow.Index)))

            End If
        Next dRow


        Dim nombreComun As String = frmRegistrarEjercicio.txtNombreComun.Text
        Dim nombreOpcional As String = frmRegistrarEjercicio.txtNombreOpcional.Text
        Dim codigo As String = frmRegistrarEjercicio.txtCodigo.Text
        Dim erroresComunes As String = frmRegistrarEjercicio.txtErroresComunes.Text
        Dim indicacionesGenerales As String = frmRegistrarEjercicio.txtIndicaciones.Text
        Dim nombreMusculoPrincipal As String = frmRegistrarEjercicio.cmbMusculos.SelectedItem
        Dim imagenInicial As String = frmRegistrarImagenesEjercicio.imagenInicial
        Dim imagenFinal As String = frmRegistrarImagenesEjercicio.imagenFinal
        objGestor.agregarEjercicio(nombreComun, nombreOpcional, codigo, imagenInicial, imagenFinal, nombreMusculoPrincipal, listaMusculos, erroresComunes, indicacionesGenerales)
        Dim frm As New Control
        frm = New frmConsultarEjercicios
        FrmPrincipal.paneForm.Controls.Remove(frm)
        MsgBox("Se registro el ejercicio correctamente")
    End Sub

    
End Class